﻿Public Class Vendedor
    Public _CIA, _VENCOD, _VENDESC, _VENDESCOR, _VENORD, _VENGRU, _VENFAC, _VENCONPED As String
    Public _VENCPRICE As Decimal
    Public _VENACT As String

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal vencod As String, ByVal vendes As String, ByVal vendescor As String, ByVal venord As String, _
            ByVal vengru As String, ByVal venfac As String, ByVal venprice As Decimal, ByVal vencontped As String, ByVal venact As String)
        Me._CIA = cia
        Me._VENCOD = vencod
        Me._VENDESC = vendes
        Me._VENDESCOR = vendescor
        Me._VENORD = venord
        Me._VENGRU = vengru
        Me._VENFAC = venfac
        Me._VENCPRICE = venprice
        Me._VENCONPED = vencontped
        Me._VENACT = venact
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(ByVal value As String)
            _CIA = value
        End Set
    End Property

    Public Property VEN_Codigo() As String
        Get
            Return _VENCOD
        End Get
        Set(ByVal value As String)
            _VENCOD = value
        End Set
    End Property

    Public Property VEN_Descripcion() As String
        Get
            Return _VENDESC
        End Get
        Set(ByVal value As String)
            _VENDESC = value
        End Set
    End Property

    Public Property VEN_DesCorta() As String
        Get
            Return _VENDESCOR
        End Get
        Set(ByVal value As String)
            _VENDESCOR = value
        End Set
    End Property

    Public Property VEN_Orden() As String
        Get
            Return _VENORD
        End Get
        Set(ByVal value As String)
            _VENORD = value
        End Set
    End Property

    Public Property VEN_Grupo() As String
        Get
            Return _VENGRU
        End Get
        Set(ByVal value As String)
            _VENGRU = value
        End Set
    End Property

    Public Property VEN_Factor() As String
        Get
            Return _VENFAC
        End Get
        Set(ByVal value As String)
            _VENFAC = value
        End Set
    End Property

    Public Property VEN_Price() As Decimal
        Get
            Return _VENCPRICE
        End Get
        Set(ByVal value As Decimal)
            _VENCPRICE = value
        End Set
    End Property

    Public Property VEN_ConPedido() As String
        Get
            Return _VENCONPED
        End Get
        Set(ByVal value As String)
            _VENCONPED = value
        End Set
    End Property

    Public Property VEN_Activo() As String
        Get
            Return _VENACT
        End Get
        Set(ByVal value As String)
            _VENACT = value
        End Set
    End Property
End Class
